Option Explicit
Sub Q_Sample012()
    ']wޥζMicrosoft Scripting Runtime
    Dim myFso As Scripting.FileSystemObject
    Dim myTxt As Scripting.TextStream
    Dim myStr As String
    Set myFso = CreateObject("Scripting.FileSystemObject")
    'wɮ
    Set myTxt = myFso.OpenTextFile(Filename:=ThisWorkbook.Path & "\Q_Test.txt", _
        IOMode:=ForReading)
    With myTxt
        Do Until .AtEndOfStream
            myStr = .Read(1)                               'wr
            Debug.Print myStr
        Loop
        .Close
    End With
    Set myTxt = Nothing                                    '
    Set myFso = Nothing
End Sub

